home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / uspl.h < prev    next >
C/C++ Source or Header  |  1999-01-28  |  45KB  |  806 lines
  1. #ifndef _EMUDLL_H
  2. #define _EMUDLL_H
  3.  
  4. #ifdef USPL_DLL_EXPORTS
  5. #define EXP __declspec(dllexport)
  6. #elif defined USPL_DLL_IMPORTS
  7. #define EXP __declspec(dllimport)
  8. #else
  9. #define EXP
  10. #endif
  11.  
  12. #ifdef  __cplusplus
  13. extern "C" {
  14. #endif
  15.  
  16. /* Defines for remez */
  17. #define BANDPASS       1
  18. #define DIFFERENTIATOR 2
  19. #define HILBERT        3
  20.  
  21. #define NEGATIVE       0
  22. #define POSITIVE       1
  23.  
  24. #define Pi             3.1415926535897932
  25. #define Pi2            6.2831853071795865
  26.  
  27. #define GRIDDENSITY    16
  28. #define MAXITERATIONS  40
  29.  
  30.  
  31. /*
  32.  *  Prototypes
  33.  */
  34.  
  35.  /* Notes 1. I think some routines still may need upgrading from int to long
  36.           2. Some routines are using the non_ routines as default (esp ffts)
  37.           3. Should integer vector shift routines use long or ulong??
  38.  */
  39.  
  40. /* Section 1 non-exported functions (internal only) */
  41.  
  42. /* Section 2 exported UC functions */
  43.  
  44. void EXP acorf_(float rv1[], float rvo[], long *no, long *n1);
  45. void EXP acorf(float rv1[], float rvo[], long no, long n1);
  46.  
  47. void EXP acort_(float rv1[], float rvo[], long *no, long *n1);
  48. void EXP acort(float rv1[], float rvo[], long no, long n1);
  49.  
  50. void EXP aspec_(float cv1[], long *inc1, float rvio[], long *inco, long *n);
  51. void EXP aspec(float cv1[], long inc1, float rvio[], long inco, long n);
  52.  
  53. void EXP blkman_(float rv1[], long *inc1, float rvo[], long *inco, long *n);
  54. void EXP blkman(float rv1[], long inc1, float rvo[], long inco, long n);
  55.  
  56. void EXP ccdotp_(float cv1[], long *inc1, float cv2[], long *inc2, float cso[], long *n);
  57. void EXP ccdotp(float cv1[], long inc1, float cv2[], long inc2, float cso[], long n);
  58.  
  59. void EXP ccorf_(float rv1[], float rv2[], float rvo[], long *no, long *n1);
  60. void EXP ccorf(float rv1[], float rv2[], float rvo[], long no, long n1);
  61.  
  62. void EXP ccort_(float rv1[], float rv2[], float rvo[], long *no, long *n1);
  63. void EXP ccort(float rv1[], float rv2[], float rvo[], long no, long n1);
  64.  
  65. void EXP cdotpr_(float cv1[], long *inc1, float cv2[], long *inc2, float cso[], long *n);
  66. void EXP cdotpr(float cv1[], long inc1, float cv2[], long inc2, float cso[], long n);
  67.  
  68. void EXP cfft_(float cv[], long *nr, long *flg);
  69. void EXP cfft(float cv[], long n, long f);
  70.  
  71. void EXP cfftf_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  72. void EXP cfftf(float cv1[], long inc1, float cvo[], long inco, long n);
  73.  
  74. void EXP cffti_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  75. void EXP cffti(float cv1[], long inc1, float cvo[], long inco, long n);
  76.  
  77. void EXP cfftsc_(float cvio[], long *n);
  78. void EXP cfftsc(float cvio[], long n);
  79.  
  80. void EXP cft2fc_(float cv1[], float cvo[], long *nr, long *nc);
  81. void EXP cft2fc(float cv1[], float cvo[], long nr, long nc);
  82.  
  83. void EXP cft2fr_(float cv1[], float cvo[], long *nr, long *nc);
  84. void EXP cft2fr(float cv1[], float cvo[], long nr, long nc);
  85.  
  86. void EXP cft2ic_(float cv1[], float cvo[], long *nr, long *nc);
  87. void EXP cft2ic(float cv1[], float cvo[], long nr, long nc);
  88.  
  89. void EXP cft2ir_(float cv1[], float cvo[], long *nr, long *nc);
  90. void EXP cft2ir(float cv1[], float cvo[], long nr, long nc);
  91.  
  92. void EXP convd_(float rv1[], long *inc1, float rv2[], long *inc2, float rvo[], long *inco, long *no, long *n2, long *ndf);
  93. void EXP convd(float rv1[], long inc1, float rv2[], long inc2, float rvo[], long inco, long no, long n2, long ndf);
  94.  
  95. void EXP cpow_(float cv1[], long *inc1, float *rs1, float rv[], long *inc2, float *rs2, float rvo[], long *inco, long *n);
  96. void EXP cpow(float cv1[], long inc1, float *rs1, float rv[], long inc2, float *rs2, float rvo[], long inco, long n);
  97.  
  98. void EXP crvdiv_(float cv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  99. void EXP crvdiv(float cv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  100.  
  101. void EXP crvmul_(float cv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  102. void EXP crvmul(float cv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  103.  
  104. void EXP cspec_(float cv1[], float cv2[], float cvo[], long *n);
  105. void EXP cspec(float cv1[], float cv2[], float cvo[], long n);
  106.  
  107. void EXP cvabs_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  108. void EXP cvabs(float cv1[], long inc1, float rvo[], long inco, long n);
  109.  
  110. void EXP cvadd_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  111. void EXP cvadd(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  112.  
  113. void EXP cvcml_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  114. void EXP cvcml(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  115.  
  116. void EXP cvcmla_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n);
  117. void EXP cvcmla(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n);
  118.  
  119. void EXP cvcomb_(float rv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  120. void EXP cvcomb(float rv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  121.  
  122. void EXP cvconj_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  123. void EXP cvconj(float cv1[], long inc1, float cvo[], long inco, long n);
  124.  
  125. void EXP cvcsml_(float cv1[], long *inc1, float cs1[2], float cvo[], long *inco, long *n);
  126. void EXP cvcsml(float cv1[], long inc1, float cs1[2], float cvo[], long inco, long n);
  127.  
  128. void EXP cvdiv_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  129. void EXP cvdiv(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  130.  
  131. void EXP cvexp_(float rv1[], long *inc1, float cvo[], long *inco, long *n);
  132. void EXP cvexp(float rv1[], long inc1, float cvo[], long inco, long n);
  133.  
  134. void EXP cvfill_(float cs1[2], float cvo[], long *inco, long *n);
  135. void EXP cvfill(float cs1[2], float cvo[], long inco, long n);
  136.  
  137. void EXP cvma_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n, long *flg);
  138. void EXP cvma(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n, long flg);
  139.  
  140. void EXP cvmags_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  141. void EXP cvmags(float cv1[], long inc1, float rvo[], long inco, long n);
  142.  
  143. void EXP cvmexp_(float rv1[], long *inc1, float rv2[], long *inc2, float cvo[], long *inco, long *n);
  144. void EXP cvmexp(float rv1[], long inc1, float rv2[], long inc2, float cvo[], long inco, long n);
  145.  
  146. void EXP cvmgsa_(float cv1[], long *inc1, float rv1[], long *inc2, float rvo[], long *inco, long *n);
  147. void EXP cvmgsa(float cv1[], long inc1, float rv1[], long inc2, float rvo[], long inco, long n);
  148.  
  149. void EXP cvml_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n);
  150. void EXP cvml(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n);
  151.  
  152. void EXP cvmla_(float cv1[], long *inc1, float cv2[], long *inc2, float cv3[], long *inc3, float cvo[], long *inco, long *n);
  153. void EXP cvmla(float cv1[], long inc1, float cv2[], long inc2, float cv3[], long inc3, float cvo[], long inco, long n);
  154.  
  155. void EXP cvmov_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  156. void EXP cvmov(float cv1[], long inc1, float cvo[], long inco, long n);
  157.  
  158. void EXP cvmul_(float cv1[], long *inc1, float cv2[], long *inc2, float cvo[], long *inco, long *n, long *flg);
  159. void EXP cvmul(float cv1[], long inc1, float cv2[], long inc2, float cvo[], long inco, long n, long flg);
  160.  
  161. void EXP cvneg_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  162. void EXP cvneg(float cv1[], long inc1, float cvo[], long inco, long n);
  163.  
  164. void EXP cvphas_(float cv1[], long *inc1, float rvo[], long *inco, long *n);
  165. void EXP cvphas(float cv1[], long inc1, float rvo[], long inco, long n);
  166.  
  167. void EXP cvrcip_(float cv1[], long *inc1, float cvo[], long *inco, long *n);
  168. void EXP cvrcip(float cv1[], long inc1, float cvo[], long inco, long n);
  169.  
  170. void EXP cvreal_(float rv1[], long *inc1, float cvo[], long *inco, long *n);
  171. void EXP c